home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1996 #14 / Monster Media No. 14 (April 1996) (Monster Media, Inc.).ISO / pcboard / hb_mb11.zip / BRDM.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1995-12-26  |  1KB  |  113 lines
  1. ;------------------------------------------------------------------------------
  2. ;                                                   .ss.
  3. ;                                                   `²²'
  4. ;             .,sS$Ss,,s$  .,sS$$$Ss.  .,sS$Ss,,s$ .ss.  .sSs.
  5. ;           .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
  6. ;           $$$'   .$$$' $$$²Sçsµ²' .$$$'   .$$$'.$$$' .$$$'  `$$b.
  7. ;           $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$'    ;$$$
  8. ;           `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
  9. ;                                    .sS²°$$$²²°"'       d²°'
  10. ;                                  .$$²  .$$'
  11. ;                                  $$$.,d$$'
  12. ;                                  `²S$$S²'
  13. ;------------------------------------------------------------------------------
  14. ; P.P.L.X. 2.OO                          (C)1996 - Lone Runner / AEGiS CoRP'96 
  15. ;------------------------------------------------------------------------------
  16. ; PPE 3.2O (Encryption type I) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     Boolean  BOOLEAN001
  20.     Boolean  BOOLEAN002
  21.     Integer  INTEGER001
  22.     Integer  INTEGER002
  23.     Integer  INTEGER003
  24.     String   STRING001
  25.     String   STRING002
  26.     String   STRING003
  27.     String   STRING004
  28.     String   STRING005
  29.  
  30. ;------------------------------------------------------------------------------
  31.  
  32.     STRING003 = PcbNode()
  33.     STRING004 = PPEPath() + "NODE" + STRING003 + ".XXX"
  34.     INTEGER003 = FNext()
  35.     If (Exist(STRING004)) Then
  36.         STRING001 = ReadLine(STRING004, 1)
  37.         INTEGER001 = ToInteger(ReadLine(STRING004, 2))
  38.     Else
  39.         STRING001 = U_Name()
  40.         INTEGER001 = 1
  41.         FCreate INTEGER003, STRING004, 1, 3
  42.         FPutLn INTEGER003, STRING001
  43.         FPutLn INTEGER003, INTEGER001
  44.         FClose INTEGER003
  45.     Endif
  46.     BOOLEAN002 = (CurSec() >= SysopSec())
  47.     BOOLEAN001 = (STRING001 == U_Name())
  48.     If (!BOOLEAN001) INTEGER001 = 1
  49.     If (BOOLEAN002) Then
  50.         STRING005 = PPEPath() + "SDISPLAY.LST"
  51.     Else
  52.         STRING005 = PPEPath() + "DISPLAY.LST"
  53.     Endif
  54.     INTEGER002 = ReadLine(STRING005, 1)
  55.     If (INTEGER001 > INTEGER002) INTEGER001 = 1
  56.     STRING002 = ReadLine(STRING005, INTEGER001 + 1)
  57.     DispFile STRING002, 2 + 1 + 4
  58.  
  59. ;------------------------------------------------------------------------------
  60. ;
  61. ; Usage report (before postprocessing)
  62. ;
  63. ; ■ Statements used :
  64. ;
  65. ;    4       Goto 
  66. ;    15      Let 
  67. ;    4       If 
  68. ;    1       DispFile 
  69. ;    1       FCreate 
  70. ;    1       FClose 
  71. ;    2       FPutLn 
  72. ;
  73. ;
  74. ; ■ Functions used :
  75. ;
  76. ;    8       +
  77. ;    1       ==
  78. ;    1       >
  79. ;    1       >=
  80. ;    3       !
  81. ;    2       U_Name()
  82. ;    3       PPEPath()
  83. ;    1       PcbNode()
  84. ;    4       ReadLine()
  85. ;    1       SysopSec()
  86. ;    1       CurSec()
  87. ;    1       Exist()
  88. ;    1       ToInteger()
  89. ;    1       FNext()
  90. ;
  91. ;------------------------------------------------------------------------------
  92. ;
  93. ; Analysis flags : s
  94. ;
  95. ; s - Sysop level access ■ 5
  96. ;     Program is reading the sysop access level, this may be normal
  97. ;     but still it is very suspect. It is the best way to give a user
  98. ;     all priviledges. Check!
  99. ;     ■ Search for : SYSOPSEC()
  100. ;
  101. ;------------------------------------------------------------------------------
  102. ;
  103. ; Postprocessing report
  104. ;
  105. ;    0       For/Next
  106. ;    0       While/EndWhile
  107. ;    2       If/Then or If/Then/Else
  108. ;    0       Select Case
  109. ;
  110. ;------------------------------------------------------------------------------
  111. ;                 AEGiS Corp - Break the routines, code against the machines!
  112. ;------------------------------------------------------------------------------
  113.